home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / star walker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  573 b   |  16 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,23
  4. 30 forz=1to2:rem no. of cycles
  5. 35 f1=10:fory=1to6:rem y controls length of first part of sound
  6. 40 f2=10:poke54273,f1
  7. 50 forx=1to4:poke54287,f2
  8. 60 f2=f2*1.02:nextx:f1=f1*1.2:nexty:rem end of first part of sound
  9. 70 forw=1to8:rem controls length of second part
  10. 80 f2=20:poke54273,f1
  11. 90 forv=1to3:rem v controls pitch range of second part. try different v's!
  12. 100 poke54287,f2:f2=f2*1.2:nextv:f1=f1/1.2:nextw:nextz
  13. 110 rem f1, f2, and all multipliers change harmonic content of both sound parts
  14. 120 poke54278,15:rem this shuts it up
  15. 130 list10-120
  16.